object frmCadPagamentoFatura: TfrmCadPagamentoFatura
  Left = 300
  Top = 45
  BorderStyle = bsDialog
  Caption = 'Pagamento de Fatura'
  ClientHeight = 656
  ClientWidth = 746
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 746
    Height = 607
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'Verdana'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 2
      Top = 2
      Width = 742
      Height = 108
      Align = alTop
      Caption = 'Identifica'#231#227'o do Pagante'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object lblRepresClientCapt: TLabel
        Left = 7
        Top = 15
        Width = 101
        Height = 14
        Caption = 'Representante:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblReprClient: TLabel
        Left = 119
        Top = 15
        Width = 138
        Height = 14
        Caption = 'RepresentanteCliente'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 492
        Top = 40
        Width = 116
        Height = 14
        Caption = 'Total Para Pagar:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblTotDebito: TLabel
        Left = 617
        Top = 40
        Width = 31
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 298
        Top = 41
        Width = 74
        Height = 14
        Caption = 'Total pago:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblTotPago: TLabel
        Left = 381
        Top = 41
        Width = 31
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label17: TLabel
        Left = 13
        Top = 60
        Width = 113
        Height = 14
        Caption = 'Valor Informado:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblTotPagamento: TLabel
        Left = 131
        Top = 60
        Width = 28
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 7
        Top = 83
        Width = 120
        Height = 14
        Caption = 'Valor Confirmado:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblVlConfirmado: TLabel
        Left = 132
        Top = 83
        Width = 28
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label20: TLabel
        Left = 4
        Top = 39
        Width = 122
        Height = 14
        Caption = 'Total Selecionado:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblTotFatura: TLabel
        Left = 130
        Top = 39
        Width = 31
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label21: TLabel
        Left = 211
        Top = 61
        Width = 160
        Height = 14
        Caption = 'Valor restante informar:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblValorRestante: TLabel
        Left = 382
        Top = 62
        Width = 28
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label22: TLabel
        Left = 204
        Top = 82
        Width = 167
        Height = 14
        Caption = 'Valor restante confirmar:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblVlRestConfirmar: TLabel
        Left = 382
        Top = 82
        Width = 28
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object lbl7: TLabel
        Left = 504
        Top = 61
        Width = 103
        Height = 14
        Caption = 'Total Desconto:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblTotalDesconto: TLabel
        Left = 618
        Top = 61
        Width = 28
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 504
        Top = 81
        Width = 78
        Height = 14
        Caption = 'Total Juros:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblTotJuros: TLabel
        Left = 618
        Top = 81
        Width = 28
        Height = 14
        Caption = '0,00'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 466
      Width = 742
      Height = 139
      Align = alBottom
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object GroupBox2: TGroupBox
        Left = 2
        Top = 15
        Width = 596
        Height = 122
        Align = alClient
        Caption = 'Identifica'#231#227'o das Parcelas da Fatura'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object dbGridFatura: TDBGrid
          Left = 2
          Top = 15
          Width = 592
          Height = 105
          Align = alClient
          Ctl3D = False
          DataSource = DS_FaturaParcela
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentCtl3D = False
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clGreen
          TitleFont.Height = -11
          TitleFont.Name = 'Verdana'
          TitleFont.Style = [fsBold]
          OnDblClick = dbGridFaturaDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'ds_fatura_parcela'
              Title.Caption = 'Fatura'
              Width = 116
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'parcela'
              Title.Alignment = taCenter
              Title.Caption = 'Parcela'
              Width = 52
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'dt_vencimento'
              Title.Alignment = taCenter
              Title.Caption = 'Vencimento'
              Width = 79
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'valor_fatura'
              Title.Alignment = taRightJustify
              Title.Caption = 'Valor Fatura'
              Width = 95
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'valor_recebido'
              Title.Alignment = taRightJustify
              Title.Caption = 'Total Recebido'
              Width = 101
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'valor_desconto'
              Title.Alignment = taRightJustify
              Title.Caption = 'Desconto'
              Width = 100
              Visible = True
            end>
        end
      end
      object GroupBox5: TGroupBox
        Left = 598
        Top = 15
        Width = 142
        Height = 122
        Align = alRight
        Caption = 'Ajuste Manual'
        TabOrder = 1
        object Label14: TLabel
          Left = 12
          Top = 20
          Width = 111
          Height = 13
          Caption = 'Valor Pagamento'
        end
        object Label7: TLabel
          Left = 12
          Top = 65
          Width = 60
          Height = 13
          Caption = 'Desconto'
        end
        object edtVlPagamento: TEdit
          Left = 11
          Top = 36
          Width = 107
          Height = 19
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 0
          Text = '0'
          OnEnter = edtPgVistaEnter
          OnKeyPress = edtVlPagamentoKeyPress
        end
        object edtVlDesconto: TEdit
          Left = 11
          Top = 80
          Width = 107
          Height = 19
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 1
          Text = '0'
          OnEnter = edtPgVistaEnter
          OnKeyPress = edtVlPagamentoKeyPress
        end
      end
    end
    object Panel2: TPanel
      Left = 2
      Top = 110
      Width = 742
      Height = 356
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Panel3: TPanel
        Left = 2
        Top = 127
        Width = 738
        Height = 43
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object btConfirmaPagamento: TSpeedButton
          Left = 139
          Top = 5
          Width = 133
          Height = 34
          Caption = 'Confirma Pagamento'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
            FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
            00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
            F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
            00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
            F033777777777337F73309999990FFF0033377777777FFF77333099999000000
            3333777777777777333333399033333333333337773333333333333903333333
            3333333773333333333333303333333333333337333333333333}
          NumGlyphs = 2
          ParentFont = False
          OnClick = btConfirmaPagamentoClick
        end
        object btExclPagamento: TSpeedButton
          Left = 273
          Top = 5
          Width = 133
          Height = 34
          Caption = 'Excl. Pagamento'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
            3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
            03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
            33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
            0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
            3333333337FFF7F3333333333000003333333333377777333333}
          NumGlyphs = 2
          ParentFont = False
          OnClick = btExclPagamentoClick
        end
        object btNovoPagamento: TSpeedButton
          Left = 5
          Top = 5
          Width = 133
          Height = 34
          Caption = 'Novo Pagamento'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
            555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
            05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
            FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
            FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
            FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
            05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
            555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
            9055575757575757775505050505055505557575757575557555}
          NumGlyphs = 2
          ParentFont = False
          OnClick = btNovoPagamentoClick
        end
        object SpeedButton1: TSpeedButton
          Left = 601
          Top = 4
          Width = 133
          Height = 34
          Caption = 'Consulta Cr'#233'dito'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
            33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
            8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
            F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
            F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
            0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
            B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
            B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
            333333333777733333333333FBFBFB3333333333333333333333}
          NumGlyphs = 2
          ParentFont = False
          OnClick = SpeedButton1Click
        end
      end
      object dbGridPagamento: TDBGrid
        Left = 2
        Top = 170
        Width = 738
        Height = 184
        Align = alClient
        Ctl3D = False
        DataSource = DS_PagamentoDetalhe
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        TabOrder = 2
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clGreen
        TitleFont.Height = -11
        TitleFont.Name = 'Verdana'
        TitleFont.Style = [fsBold]
        OnCellClick = dbGridPagamentoCellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'sDetalheTipo'
            Title.Caption = 'Tipo Pagamento'
            Width = 120
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'data'
            Title.Alignment = taCenter
            Title.Caption = 'Recebimento'
            Width = 103
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dt_compensacao'
            Title.Caption = 'Compensa'#231#227'o'
            Width = 108
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'sVl'
            Title.Alignment = taRightJustify
            Title.Caption = 'Valor'
            Width = 124
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nr_cheque'
            Title.Caption = 'Nr.Cheque'
            Width = 119
            Visible = True
          end>
      end
      object GroupBox4: TGroupBox
        Left = 2
        Top = 2
        Width = 738
        Height = 125
        Align = alTop
        Caption = 'Tipo de Pagamento'
        TabOrder = 0
        object pgCrtl: TPageControl
          Left = 2
          Top = 15
          Width = 734
          Height = 108
          ActivePage = TabSheet2
          Align = alClient
          MultiLine = True
          ParentShowHint = False
          ShowHint = False
          Style = tsFlatButtons
          TabOrder = 0
          OnChange = pgCrtlChange
          object TabSheet1: TTabSheet
            Caption = 'A Vista'
            object Label1: TLabel
              Left = 8
              Top = 8
              Width = 118
              Height = 13
              Caption = 'Data Recebimento'
            end
            object Label2: TLabel
              Left = 9
              Top = 37
              Width = 105
              Height = 13
              Caption = 'Valor Recebido: '
            end
            object Label6: TLabel
              Left = 281
              Top = 7
              Width = 102
              Height = 13
              Caption = 'Valor Desconto:'
              Enabled = False
            end
            object dtPgVista: TDateTimePicker
              Left = 140
              Top = 4
              Width = 129
              Height = 21
              CalColors.TextColor = clGreen
              Date = 40191.694543356490000000
              Time = 40191.694543356490000000
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clGreen
              Font.Height = -11
              Font.Name = 'Verdana'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
            end
            object edtPgVista: TEdit
              Left = 140
              Top = 32
              Width = 128
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 1
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
              OnKeyPress = edtPgVistaKeyPress
            end
            object edtPgVistaDesconto: TEdit
              Left = 399
              Top = 3
              Width = 128
              Height = 19
              Ctl3D = False
              Enabled = False
              ParentCtl3D = False
              TabOrder = 2
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
              OnKeyPress = edtPgVistaKeyPress
            end
          end
          object TabSheet2: TTabSheet
            Caption = 'Cheque'
            ImageIndex = 1
            object Label3: TLabel
              Left = 8
              Top = 8
              Width = 122
              Height = 13
              Caption = 'Data Recebimento:'
            end
            object Label4: TLabel
              Left = 9
              Top = 37
              Width = 105
              Height = 13
              Caption = 'Valor Recebido: '
            end
            object Label5: TLabel
              Left = 520
              Top = 8
              Width = 69
              Height = 13
              Caption = 'N. Cheque:'
            end
            object Label18: TLabel
              Left = 277
              Top = 7
              Width = 128
              Height = 13
              Caption = 'Data Compensa'#231#227'o:'
            end
            object Label24: TLabel
              Left = 278
              Top = 37
              Width = 43
              Height = 13
              Caption = 'Banco:'
            end
            object Label25: TLabel
              Left = 9
              Top = 62
              Width = 119
              Height = 13
              Caption = 'Titular do Cheque:'
            end
            object dtPgCheque: TDateTimePicker
              Left = 140
              Top = 4
              Width = 129
              Height = 21
              CalColors.TextColor = clGreen
              Date = 40191.694543356490000000
              Time = 40191.694543356490000000
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clGreen
              Font.Height = -11
              Font.Name = 'Verdana'
              Font.Style = []
              ParentFont = False
              TabOrder = 6
            end
            object edtPgCheque: TEdit
              Left = 140
              Top = 32
              Width = 128
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 2
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
            end
            object edtNrCheque: TEdit
              Left = 595
              Top = 4
              Width = 128
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 1
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
            end
            object medtDtCompensacao: TMaskEdit
              Left = 416
              Top = 4
              Width = 97
              Height = 19
              Ctl3D = False
              EditMask = '!99/99/9999;1;_'
              MaxLength = 10
              ParentCtl3D = False
              TabOrder = 0
              Text = '  /  /    '
            end
            object dblBanco: TDBLookupComboBox
              Left = 383
              Top = 32
              Width = 339
              Height = 19
              Ctl3D = False
              KeyField = 'cd_banco'
              ListField = 'ds_banco'
              ListSource = DS_Banco
              ParentCtl3D = False
              TabOrder = 4
            end
            object edtTitularCheque: TEdit
              Left = 140
              Top = 57
              Width = 582
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 5
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
              OnKeyPress = edtTitularChequeKeyPress
            end
            object edtCodBanco: TEdit
              Left = 325
              Top = 32
              Width = 54
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 3
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
              OnKeyPress = edtCodBancoKeyPress
            end
          end
          object TabSheet3: TTabSheet
            Caption = 'Cr'#233'dito'
            ImageIndex = 2
            object Label8: TLabel
              Left = 8
              Top = 8
              Width = 122
              Height = 13
              Caption = 'Data Recebimento:'
            end
            object Label9: TLabel
              Left = 9
              Top = 37
              Width = 105
              Height = 13
              Caption = 'Valor Recebido: '
            end
            object Label10: TLabel
              Left = 281
              Top = 34
              Width = 160
              Height = 13
              Caption = 'Cr'#233'dito Total Dispon'#237'vel:'
            end
            object lblCredDisp: TLabel
              Left = 450
              Top = 34
              Width = 75
              Height = 13
              Caption = '9.999.999,99'
              Font.Charset = ANSI_CHARSET
              Font.Color = clGreen
              Font.Height = -11
              Font.Name = 'Verdana'
              Font.Style = []
              ParentFont = False
            end
            object Label19: TLabel
              Left = 280
              Top = 9
              Width = 160
              Height = 13
              Caption = 'Cr'#233'dito Total Bloqueado:'
            end
            object lblCredBloq: TLabel
              Left = 449
              Top = 9
              Width = 75
              Height = 13
              Caption = '9.999.999,99'
              Font.Charset = ANSI_CHARSET
              Font.Color = clRed
              Font.Height = -11
              Font.Name = 'Verdana'
              Font.Style = []
              ParentFont = False
            end
            object dtPgCredito: TDateTimePicker
              Left = 140
              Top = 4
              Width = 129
              Height = 21
              CalColors.TextColor = clGreen
              Date = 40191.694543356490000000
              Time = 40191.694543356490000000
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clGreen
              Font.Height = -11
              Font.Name = 'Verdana'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
            end
            object edtPgCredito: TEdit
              Left = 140
              Top = 32
              Width = 128
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
              OnKeyPress = edtPgCreditoKeyPress
            end
          end
          object TabSheet4: TTabSheet
            Caption = 'Duplicata'
            ImageIndex = 3
            object Label13: TLabel
              Left = 8
              Top = 8
              Width = 118
              Height = 13
              Caption = 'Data Recebimento'
            end
            object Label16: TLabel
              Left = 9
              Top = 37
              Width = 105
              Height = 13
              Caption = 'Valor Recebido: '
            end
            object dtPgDuplicata: TDateTimePicker
              Left = 140
              Top = 4
              Width = 129
              Height = 21
              CalColors.TextColor = clGreen
              Date = 40191.694543356490000000
              Time = 40191.694543356490000000
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clGreen
              Font.Height = -11
              Font.Name = 'Verdana'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
            end
            object edtPgDuplicata: TEdit
              Left = 140
              Top = 32
              Width = 128
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
              OnKeyPress = edtPgDuplicataKeyPress
            end
          end
          object ts1: TTabSheet
            Caption = 'Juros'
            ImageIndex = 4
            object lbl1: TLabel
              Left = 8
              Top = 8
              Width = 118
              Height = 13
              Caption = 'Data Recebimento'
            end
            object lbl2: TLabel
              Left = 9
              Top = 37
              Width = 105
              Height = 13
              Caption = 'Valor Recebido: '
            end
            object lbl3: TLabel
              Left = 281
              Top = 7
              Width = 83
              Height = 13
              Caption = 'Justificativa:'
            end
            object edtPgJuros: TEdit
              Left = 140
              Top = 32
              Width = 128
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
            end
            object dtpPgJuros: TDateTimePicker
              Left = 140
              Top = 4
              Width = 129
              Height = 21
              CalColors.TextColor = clGreen
              Date = 40191.694543356490000000
              Time = 40191.694543356490000000
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clGreen
              Font.Height = -11
              Font.Name = 'Verdana'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
            end
            object edtObsJuros: TEdit
              Left = 282
              Top = 31
              Width = 437
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 2
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
              OnKeyPress = edtPgVistaKeyPress
            end
          end
          object ts2: TTabSheet
            Caption = 'Desconto'
            ImageIndex = 5
            object lbl4: TLabel
              Left = 8
              Top = 8
              Width = 118
              Height = 13
              Caption = 'Data Recebimento'
            end
            object lbl5: TLabel
              Left = 9
              Top = 37
              Width = 105
              Height = 13
              Caption = 'Valor Recebido: '
            end
            object lbl6: TLabel
              Left = 281
              Top = 7
              Width = 83
              Height = 13
              Caption = 'Justificativa:'
            end
            object dtpPgDesconto: TDateTimePicker
              Left = 140
              Top = 4
              Width = 129
              Height = 21
              CalColors.TextColor = clGreen
              Date = 40191.694543356490000000
              Time = 40191.694543356490000000
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clGreen
              Font.Height = -11
              Font.Name = 'Verdana'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
            end
            object edtPgDesconto: TEdit
              Left = 140
              Top = 32
              Width = 128
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 1
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
            end
            object edtObsDesconto: TEdit
              Left = 282
              Top = 31
              Width = 437
              Height = 19
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 2
              OnEnter = edtPgVistaEnter
              OnExit = edtPgVistaExit
              OnKeyPress = edtPgVistaKeyPress
            end
          end
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 607
    Width = 746
    Height = 49
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    DesignSize = (
      746
      49)
    object btnGravar: TSpeedButton
      Left = 5
      Top = 3
      Width = 61
      Height = 44
      Caption = 'Gravar'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = btnGravarClick
    end
    object Bevel3: TBevel
      Left = 679
      Top = -7
      Width = 2
      Height = 63
    end
    object btnFechar: TSpeedButton
      Left = 682
      Top = 4
      Width = 60
      Height = 41
      Anchors = []
      Caption = 'Fechar'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F3333000000000003333377777777777333}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = btnFecharClick
    end
    object Bevel1: TBevel
      Left = 67
      Top = -5
      Width = 2
      Height = 63
    end
  end
  object QR_Fatura: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_FATURA')
    Left = 568
    Top = 363
    object QR_Faturacd_fatura: TAutoIncField
      FieldName = 'cd_fatura'
      ReadOnly = True
    end
    object QR_Faturads_fatura: TWideStringField
      FieldName = 'ds_fatura'
      Size = 50
    end
    object QR_Faturacd_pedido: TWideStringField
      FieldName = 'cd_pedido'
      Size = 50
    end
    object QR_Faturadt_fatura: TDateTimeField
      FieldName = 'dt_fatura'
    end
    object QR_Faturadt_entrega: TDateTimeField
      FieldName = 'dt_entrega'
    end
    object QR_Faturavalor_fatura: TBCDField
      FieldName = 'valor_fatura'
      Precision = 19
    end
    object QR_Faturaperc_desconto: TIntegerField
      FieldName = 'perc_desconto'
    end
    object QR_Faturavalor_total: TBCDField
      FieldName = 'valor_total'
      Precision = 19
    end
    object QR_Faturatotal_volumes: TIntegerField
      FieldName = 'total_volumes'
    end
    object QR_Faturacd_condicaopagamento: TIntegerField
      FieldName = 'cd_condicaopagamento'
    end
  end
  object QR_Pagamento: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tb_pagamento')
    Left = 171
    Top = 385
    object QR_Pagamentocd_pagamento: TAutoIncField
      FieldName = 'cd_pagamento'
      ReadOnly = True
    end
    object QR_Pagamentodata: TDateTimeField
      FieldName = 'data'
    end
  end
  object QR_PagamentoDetalhe: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    OnCalcFields = QR_PagamentoDetalheCalcFields
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_PAGAMENTO_DETALHE')
    Left = 291
    Top = 289
    object QR_PagamentoDetalhecd_pagamento_detalhe: TAutoIncField
      FieldName = 'cd_pagamento_detalhe'
      ReadOnly = True
    end
    object QR_PagamentoDetalhecd_pagamento: TIntegerField
      FieldName = 'cd_pagamento'
    end
    object QR_PagamentoDetalhecd_tipo_pagamento: TIntegerField
      FieldName = 'cd_tipo_pagamento'
    end
    object QR_PagamentoDetalhedata: TDateTimeField
      FieldName = 'data'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object QR_PagamentoDetalhenr_cheque: TWideStringField
      FieldName = 'nr_cheque'
      Size = 50
    end
    object QR_PagamentoDetalheagencia: TWideStringField
      FieldName = 'agencia'
      Size = 50
    end
    object QR_PagamentoDetalheconta: TWideStringField
      FieldName = 'conta'
      Size = 50
    end
    object QR_PagamentoDetalhevalor: TBCDField
      FieldName = 'valor'
      Precision = 19
    end
    object QR_PagamentoDetalhesDetalheTipo: TStringField
      FieldKind = fkLookup
      FieldName = 'sDetalheTipo'
      LookupDataSet = QR_TipoPagamento
      LookupKeyFields = 'cd_tipo_pagamento'
      LookupResultField = 'descricao'
      KeyFields = 'cd_tipo_pagamento'
      Lookup = True
    end
    object QR_PagamentoDetalhedt_compensacao: TDateTimeField
      FieldName = 'dt_compensacao'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object QR_PagamentoDetalhesVl: TStringField
      FieldKind = fkCalculated
      FieldName = 'sVl'
      Calculated = True
    end
    object QR_PagamentoDetalhedesconto: TIntegerField
      FieldName = 'desconto'
    end
    object wdstrngfldQR_PagamentoDetalheobs: TWideStringField
      FieldName = 'obs'
      Size = 50
    end
    object QR_PagamentoDetalhecd_banco: TWideStringField
      FieldName = 'cd_banco'
      Size = 50
    end
    object QR_PagamentoDetalheds_titular_cheque: TWideStringField
      FieldName = 'ds_titular_cheque'
      Size = 200
    end
  end
  object DS_PagamentoDetalhe: TDataSource
    DataSet = QR_PagamentoDetalhe
    Left = 291
    Top = 337
  end
  object QR_TipoPagamento: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_TIPO_PAGAMENTO')
    Left = 403
    Top = 361
    object QR_TipoPagamentocd_tipo_pagamento: TAutoIncField
      FieldName = 'cd_tipo_pagamento'
      ReadOnly = True
    end
    object QR_TipoPagamentodescricao: TWideStringField
      FieldName = 'descricao'
      Size = 50
    end
  end
  object QR_Temp: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    Parameters = <>
    Left = 467
    Top = 337
  end
  object DS_FaturaParcela: TDataSource
    DataSet = QR_FaturaParcela
    Left = 43
    Top = 393
  end
  object QR_Temp2: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    Parameters = <>
    Left = 683
    Top = 297
  end
  object QR_FaturaParcela: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_FATURA_PARCELA ')
    Left = 40
    Top = 347
    object QR_FaturaParcelacd_fatura_parcela: TAutoIncField
      FieldName = 'cd_fatura_parcela'
      ReadOnly = True
    end
    object QR_FaturaParcelacd_fatura: TIntegerField
      FieldName = 'cd_fatura'
    end
    object QR_FaturaParcelaparcela: TIntegerField
      FieldName = 'parcela'
    end
    object QR_FaturaParceladt_vencimento: TDateTimeField
      FieldName = 'dt_vencimento'
    end
    object QR_FaturaParcelavalor_fatura: TBCDField
      FieldName = 'valor_fatura'
      Precision = 19
    end
    object QR_FaturaParceladt_recebimento: TDateTimeField
      FieldName = 'dt_recebimento'
    end
    object QR_FaturaParcelavalor_recebido: TBCDField
      FieldName = 'valor_recebido'
      Precision = 19
    end
    object QR_FaturaParcelaBMAR: TBooleanField
      FieldName = 'BMAR'
    end
    object QR_FaturaParcelasDsFatura: TStringField
      FieldKind = fkLookup
      FieldName = 'sDsFatura'
      LookupDataSet = QR_Fatura
      LookupKeyFields = 'cd_fatura'
      LookupResultField = 'ds_fatura'
      KeyFields = 'cd_fatura'
      Lookup = True
    end
    object QR_FaturaParcelads_fatura_parcela: TWideStringField
      FieldName = 'ds_fatura_parcela'
      Size = 50
    end
    object QR_FaturaParcelavalor_desconto: TBCDField
      FieldName = 'valor_desconto'
      Precision = 19
    end
    object QR_FaturaParcelacd_pagamento: TIntegerField
      FieldName = 'cd_pagamento'
    end
  end
  object QR_Banco: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    OnCalcFields = QR_PagamentoDetalheCalcFields
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_BANCO')
    Left = 667
    Top = 353
  end
  object DS_Banco: TDataSource
    DataSet = QR_Banco
    Left = 667
    Top = 401
  end
end
